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In the last VZDU pages 11 and 12 are reversed. Just turn tne page 
. over and switch the numbers. Sorry about that. RU 


Once again we have "lots of goodies. I continue Bob's SOUND 
series and David's Mystery program writing. Dave Mitchell did'nt get 
flooded out, and has sent us a program that will formatt (init) one 
nominated track. I tell you how Ii needed to make use of it almost as 
soon as I git it.. 

Paul has turned his attention to commenting on action games. 


Aust. Post is not gathering enough sheckles,so have made 
alterations to their parcel rates. Like Telecom they advise the public 
a month or so ed they become effective. 

I suggest you look into the $1 srepaid envelopes, as the most 
desirable for our use. They take an А4 page folded, can be up to 20 mm 
thick and can be up to 500grams. That is enough to hold 5 VZDU 
Newsletters, or 2 cassettes or about 8 disks with stiffening added. As 
packets that would cost $2.80. They are carried by air and interstate. 
If you want bigger there is the $2 envelope which is twice the size, 
but still limited to the 20mm thickness. I receive articles here with 
twice the ыы necessary on them, and it makes my heart bleed. 


We are extending our library, by adding a few books. To start 
ther is the У2200 and У2300 Tech Manuals, DSE Introduction to 
. computing, DSE First book of programs, DSE Further programming, and 
DSE Omibus book of programs. As these books cannot be obtained now, we 
have put a $25 deposit on them, and we think a 1 month loan is 
reasonable. We would ask thet they be returned earlier if possible as 
. others may want them. Postage. Most will fit the $2 envelope, and that 
is to your account. We will take it out of the deposit if you choose. 

There are a lot more books on hand, and will be listed in the next 
Newsletter. Almost ready are tapes 7-8-9-10. | 


Happy Computing, 





SINGLE TRACK FORMATT ....... 


WRITTEN BY DAVE MITCHELL 


This program has been a long time comming , it was plagued 
with bugs. However here is a program that will formatt single 
tracks. | 
The program once run will BEEP to let you know it has been 
loaded . from disk. The USR ROUTINE will be set up go you can 
renter the program if you break out of it. 

Displayed on the screen will be :- 
SINGLE TRACK FORMATT 
BY D.MITCHELL 
ENTER TRACK NUMBER : 


The TRACK NUMBER is to be ENTERED in HEX . A WORD OF WARNING 
.— If a track already has data , IT WILL BE LOST IF YOU FORMATT 
THIS TRACK. 

When a track has been formatted the program restarts with 
the BEEP to let you know it is completed. This program is 
usefull when data is lost from track zero. 


00010 FORI--28672T0-27895:READA:POKEI,A:B-B*A:NEXT 

00020 IFB«»80522THENPRINT"ERROR IN DATA" : ЕМО 

00030 IFPEEK (16384) «»170THENPRINT"NO DISK DRIVE":END 

00040 BSAVE"FORMATT" , 9000, 9508 | 

00100 DATA33,6,144, 34,142,120, 243, 205,80,52,251,255,126,20,185 
00110 DATA4O, 13,243,245, 205,8,64,241,71,205,62,64,205,11,64, 55 
00120 DATA140, 146, 205, 117,43, 205,58,5, 218, 190, 29, 26, 254, 32,202 
00150 DATA25, 26,35,6,2,17,0,0, 126, 254,48,56,31,254,58,56,10, 254 
00140 DATAG5, 56,23, 254,71,48,19,214,7,230,15,72,6,4, 203,55, 205 
00150 СИН E 
DATA18,16,250,179,95,65,215,16,220,120,254,2,210,50, 144, 125 
00160 DATA254,40,48,161,245,245,50,110,146,255,119,18, 55,125,146 
00170 DATA124,50,112,146,126,50,111,146,255,119,17,205,8,64, 241 
00180 DATA185,40,4,71,205,59,64,219,19,205,127,40,28,205,11,64 
00190 DATA251,35,212,146,205,117,45,205,75,0,245,205,80,52, 205 
00200 
DATA8,64,1,100,0,205,56,64,24,222,1,252,5,205,56,64,255,229 
00210 DATA225,17,77,0,25,255,117,14,255,116,15,255,55,99,146, 1 
00220 ОАТА?4,0,237,176,98,107,54,0,19,1,130,0, 257,176, 2535,54, 56 
00230 ОАТА17,1,144,1,205,56,64, 255, 110, 14, 253,102, 15,17, 11,0, 25 
00240 DATA84,93,19,66,75,3,217,1,100,0, 205, 56,64, 255, 126,51, 205 
00250 ОАТА183,253,119,51,211, 16,1, 100,0, 205,56,64, 221,55, 125,146 
00260 ОАТА253, 110,14, 255, 102,15,2535,86,51,6, 154, 205,45, 145, 255 
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DATA114,51,217,221,126,1,221,35,18,134,2,26,217,254, 255, 194 
00280 DATA5,145,205,11,64,251,195,6,144,78,62,52,170,205, 17,210 
00290 | 
DATA65,145,211,16,238,32,87,45,211,16,195,74,145,211,16,258 
00500 0АТА0,87,45,211,16,195,74,145,55,195,78,145,195,81,145,219 
00510 | | 
DATA18,62,32,170,205,17,210,102,145,211,16,258,52,87,45,211 | 
00520 DATA16,195,115,145,211,16,238,0,87,45,211,16,195,115,145 
00330 DATA35,195,117,145,195,120,145,219,18,62,52,170,205, 17, 210 
00340 ОАТА141,145,211,16,258,52,87,45,211,16,195,152,145,211,16 
00550 DATA238,0,87,45,211,16,195,152,145,55,195,156,145,195,159 
00560 DATA145,219,18,62,52,170,205,17,210,180,145,211,16,258, 52 
00370 DATA87,45,211,16,195,191,145,211,16,258,0,87,45,211,16,195 
00580 . | 
DATA191,145,35,195,195,145,195,198,145,219,18,62,52, 170, 205 
00390 DATA17,210,219,145,211,16,238,52,87,45,211,16,195,250,145 
00400 ОАТА211,16,258,0,87,45,211,16,195,250,145,55,195,254,145 
00410 DATA195,237,145,219,18,62,52,170,205,17,210,2,146,211,16 
00420 DATA238,32,87,43,211,16,195,13,146,211,16,238,0,87,43,211 
00450 | | 
DATA10,195,13,146,35,195,17,146,195,20,146,219,18,62,32,170 
00440 | 
ПАТА205,17,210,41,146,211,16,258,52,87,45,211,16,195,52,146 
00450 DATA211,16,258,0,87,45,211,16,195,52,146,55,195,56,146,195 
00460 DATA59,146, 219,18,62,32,170,203,17,210,80,146,211,16,238 - 
00470 DATA32,87,45,211,16,195,91,146,211,16,258,0,87,45,211,16 
00480 
DATA195,91,146,35,35,0,5,194,45,145,201,128,128,128,128, 128 
00490 РАТА128,0, 254, 251, 24, 195,0,0,0, 128, 128,128, 128, 128,0, 195 
00500 ОАТА24, 231, 254,0,8, 1,9,2, 10,3, 11,4, 12,5, 13,6, 14,7, 15,255 
00510 РАТАЗІ , 32, 32, 52,32, 352, 52,85,75,78,71,76,69, 52,84,82,65, 67 
00520 DATA75,32,70,79,82,77,65, 84,84,15, 52, 32,32,52,52,52, 32,52 
00530 ОАТАб6, 89, 32, 52,68,46,77,735,84,67,72,69,76, 76,15,69, 78, 84 
00540 ОАТАВ9, 82, 32 ,84,82,65,67, 75, 52,78,85,77,66,69, 82,52, 58,0 
00550 ОАТА15, 32, 32, 52,82,69,77,79,86,69, 32,87,82,75,84, 69, 32,80 
00560 РАТА82, 79,84, 69,67,84, 32,76,65, 66,69,76, 15,32,32, 32,32,32 
00570 ОАТАЗ2, 32,80,82,69,835,85, 32,82,69, 84, 85,82,78, 15,0,0,0 


98 ' 
99 4: 
100. 
110. 
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140 
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160 

170 

180 

190 

200 

210 

220 

250 

1000 
1010 
1020 
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2050 
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2070 
2080 
5000 
5010 
5020 
5050 
5040 
5050 
5060 
50/0 
5080 
4000 
4010 
4020 
4050 
4040 
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**TEST NOISE** 
at a RBK жж 
31/8/90 
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*** TEST VARIOUS NOISES USING BEEP ROUTINE. 
CLS:POKE 30862,80:POKE 30863,52 :'***BEEP ROUTINE. 
PRINT:PRINT" © VARIOUS NOISES":PRINT:PRINT 
PRINT" 1. RADIATION DETECTOR" 

PRINT" 2. HEART BEAT" 

PRINT" 5. WHATISIT" 

PRINT" 4. WHATISIT" 

PRINT:PRINT"ENTER CHOICE 1-4":PRINT:PRINT 
INPUT"HOLD ANY KEY TO QUIT ";OP$ 

IF OP$="1" THEN GOTO 1000 

IF OP$="2" THEN GOTO 2000 

IF OP$="3" THEN GOTO 5000 

IF OP$="4" THEN GOTO 4000 

GOTO 100 


'*** RADIATION DETECTOR. 

IF RND(O) < 0.5 THEN GOTO 1010 

X=USR (0) 

GOSUB 5000:IF A$=""THEN GOTO 1010 ELSE GOTO 100 


***HEARTBEAT. 

X=USR (0) 

X-USR (0) 

X-USR (0) 

FOR IZ-0 TO 250:NEXT I% 

X-USR(O) 

FOR 1%=0 TO 250:NEXT 1% 

GOSUB 5000:IF А%-""ТНЕМ GOTO 2010 ELSE GOTO 100 


**WHATTSIT. 
FOR I%=0 TO 30 
X-USR (CO) 
X=USR (0) 
FOR N%Z=0 ТО 1% 
NEXT М% 
NEXT I% 
GOSUB 5000:IF А%-""ТНЕМ GOTO 3010 ELSE GOTO 100 


S*WHATISIT. 

FOR 1%=0 TO 160 STEP 4 
GOSUB 4100 

NEXT 1% 

FOR І%-160 ТО 0 STEP -4 


ГА 


4050 GOSUB 4100 

4060 NEXT I% 

pee GOSUB 5000:ІҒ A$=""THEN GOTO 4010 ELSE GOTO 100 
4080 ' 

4100 X=USR (0) 

4110 X=USR (0) 

4120 X=USR (0) 

4150 FOR М=0 ТО І%:МЕХТ N% 

4140 RETURN 

4150 ' 

5000 '***QUIT ROUTINE. 

5010 AS=INKEYS:AS=INKEYS 

5020 RETURN 

5030 ' | 
10000 CLS:PRINT"ERASING NOISE":ERA"NOISE" 
10010 PRINT"SAVING NOISE":SAVE"NOISE" 
10020 END 


SE FE SE SE HE HE HE ДЕ AE FE AE HE HE 


**VARY D.C 


SE at ЗЕ at ДЕ at ae ak at жз: at at 


98 '***VARY DUTY CYCLE OF SQUARE WAVE. 


99 ' | 

100 CLS:POKE 30862,80:POKE 50865,52 ;'***BEEP ROUTINE. 
110 INPUT" ON TIME 0-255 "; № 

120 PRINT 


130 INPUT"OFF TIME 0-255 ";F% 

140 PRINT:PRINT:PRINT: РКІМТ"ЕМТЕК CTRL BREAK TO STOP" 

150 X=USR (0) 

160 FOR IZ=0 TO М%:МЕХТ 1% 

170 X-USR(O) 

180 FOR І%-0 TO Ғ%:МЕХТ I% 

190 GOTO 150 | 

10000 CLS:PRINT"ERASING VARYDC" : ERA" VARYDC" 

10010 PRINT"SAVING VARYDC" : SAVE"VARYDC" 

10020 ' 

10050 REM; IF YOU ARE USING TAPE DON'T PUT IN LINE 10000. 
10040 FOR 10010 USE LINE 10050 

10050 PRINT"TO SAVE VARYDC,START TAPE IN RECORD MODE" | 
10060 PRINT"PRESS 'CSAVE' AND ENTER NAME. THEN PRESS RETURN" 


Disk I/O ERROR 


How often have you seen this crop up? Or worse still you type DIR - 
and all you get is ————- NOTHING. Or READY. 


You type STATUS and you get---you guessed it. NOTHING or READY. 


What you will find if you use the Disk Doctor is track00 Sector00 
is not addressed. 


I wrote a rather clumbsy way to get over that some issues back. If 
you have taken my advice and saved the tracks of track 00 with either 
Filesearch or Dave Mitchell's Ex DOS and with the FORMATT program in 
this issue and either the DOC or the Label program you can save that 
diskfull of goodies. FORMATT will formatt the track you nominate. 


Now a clever piece of deduction оп my part, (Sherlock Holmes would 
be proud of me), I found that I can even go further to saving a disk. 


I had a disk, a one only, that I tried to copy with COPY from Disk 
Tool Kit. It reads as much as the memory will hold and then saves it 
to the destination disk. With a 300 and 16K expansion that is tracks 
00 to 13; 14 to 26; and 27 to 39. There was an I/O error in the third 
gulp. I looked with DOC and found track 39 sect 04 was NOT ADDRESSED. 
I could have Formatted that track and copied the rest, but I wanted 
that track. So, here is the clever part, that probably has been in use 
for the last 9 years. I got the VZ200 out, did'nt put in Mem.Exp. So I 
had 6K less DOS. That was enough to read about 2 tracks. It copied to 
the end of track 37, then gave an error. That was 10 tracks more than 
I had, but I was greedy. I then put DOC in again. As I looked at each 
sector I would press M--modify--. Then put in another disk and press 
RETURN. Answer Y to All alteration made. It would then impress the new 
disk with the contents of that secto. After doing that 31 times I had 
the 2 tracks copied, except for the track with the error. Can't do 
anything about that one. But that is only 126 bytes, and some of them 
will be spaces. | | | 


If the fault was in an earlier track, say 5 or 10, then with the 
use of DOC the other sectors could be copied and then that track 
FORMATTed and the disk then copied normally. 


Never being satisfied, I'm now asking Dave to make FORMATT choose 
1 sector r to Formatt! | 


( Ed.) 


j | 


Е I have heard of one person that has never seen that "Track not 
Ji addressed error". Well, some people have all the breaks. I've seen 


more than my share. 
( Ed.) a 


ADVENTUR E GAME WR ITING 


DISPLAYING THE PLAYER'S ENVIRONMENT ERR BY DAVID: WOOD ` 


Thia  aection ia roughly aimilar for all adventures, and can 
virtually be copied straight from another adventure listing. 
| In the demonatration program, a aubroutine ia called at 4100. Thia 
subroutine aimply cleara the acreen and diaplaya the current pease: 
You may like to print something like: | 
THE MYSTERY OF 
SPOOKY MOUNTAIN 


TIME REMAINING = 383 
STRENGTH = 83 WISDOM = 42 


However, you may be restricted by the size of the screen in that you 

may not be able to diaplay thia and all the necessary information. 
Following are a few linea apecific to the demonstration program, 

that carry out а few asounda, namely a cat and some moaquitoes, in the 

rooma that they are required. i 
шаны are the next real а ce for the diaplay. 


40 LL-O - | | | 
43 IF F(21)-1THEN J&-RS«". IT'S DARK. YOU CAN^T SEE А THING." 
44 IF F(21)-1THEN GOSUB4850:J2-"":0-0:GOTO200 

45 J&-RS*". YOU ARE ": GOSUB 485@:Ja="" 


Line 40 aeta up the variable LL to equal zero so when the computer 
atarta printing, it "knows" that the curaor іа at the left hand edge 
of the acreen. Linea 43 and 44 come into play when the player ia in a 
dark room without a torch. They place into JS the nesaage,RS, aa the 
reault of the playera laat action, a full atop to end this message, 
plua a further meaaage - IT'S DARK. YOU CAN’T SEE A THING. They then 
call the aubroutine at line 4850 to print the contenta of JS, then 
jumps to line 200, so that no further information about the player’s 
surrounds are displayed. 

(There are two possible waya for adventure programa to deal with 
playera trying to enter dark агеаа without а. light. Some, auch aa 
HAUNTED MANSION and MERKFRUIT LODGE, do not allow the player to enter 
these areaa at all. Othera, auch aa the demo program, allow the player 
to enter the area, but not to aee anything, so those who have mapped 
the area well will be able to find objecta if they know where they 
are.) | | 

Line 45 comea into effect whenever it ia not dark - that іа, moat 
of the time. It adda the "YOU ARE " part of the room deacription to 
the RS пеайаде. It ia then printed by the subroutine at 4850. Thia 
aubroutine enablea everything to be printed on the acreen with 
automatic line wrap around. This meana that if a word ian’t going to 
fit on the end of а particular line, it is inatead printed on the 
atart of the next one, inatead of printing the word aplit between two 
lines. The deacriptiona are printed a lot slower on the screen, but 
the wrap around feature makea them a great deal easier to read. 


4850 LS-1:LP-1:FOR I-1 TO LEN(J&) | | 
4855 IF MIDS(JS,I,1)-" " ANDLL>EL, PRINT MIDS(JS,LP,LS-LP):LP-LS«1 


4860 IF MIDSCJS,I,15-" " ANDLL>EL, LL=I-LS 
4861 IF МІра(7з,1,10-" ",LS-I 

48570 LL=LL+1:NEXT I 

4880 PRINT MIDS(JS,LP,LEN(CJ&) -LP) ; 

4899 RETURN 


The aubroutine acana through the atring Ја for арасеа. After each 
character, the variable LL ia increased by one. If it finda a apace, 
it'a position іп the atring ia recorded in LS. If the apace іа found 
and the value of LL ia greater than the width of the acreen, the 
measage ia printed from the piece of the meaaage that waa laat 
printed, up until the previoua apace, the length of the message that 
haa ао far been printed іа stored іп LP, and the value of LL is 
altered to the current length that haa been acanned minua the position 
of that previcua apace. Finally line 48930 printa the reat of the 
meaaage between the laat new line and the end of thia message. All of 
thia aounda like rather a mouthful, a6 we will try an example. We will 
asaume that Ја="ТНЕ QUICK BROWN FOX JUMPS OVER THE LAZY DOG. YOU ARE 
IN THE DOG*S KENNEL." LN | | 

Firatly LL іа aet at ð and LS and LP are equal to 1. The message 
ia  acanned, with LL initially taking the same value аа I. When I ia 
equal to 4, a apace ia found at the end of "The" go the variable LS 
(think of theae initiala atanding for Laat Space) ia altered to equal 
four. Each time a apace ia found at the end of the next few worda, the 
value of LS ia altered to equal the aame value aa I, until at the end 
Of the word "over" LS іа equal to 30. This ia where things begin to 
happen. At the end of the next word (another "the") a apace ia found, 
but the value of LL, which haa been ateadily increasing haa now become 
greater than EL (which ia equal to 31). The part of JS from the atart 
to the value of the laat space - from LP (equal to 1) to LS (equala . 
30) ia printed on the acreen. Тһід ia from the atart of the message up 
to "over." The value of LP (Laat Print) ia made equal to that of the 
laat apace (30) PLUS one, becauae we do not want to print the apace on 
the atart of the next line. LL ia then altered to equal I - LS Which 
ia the length acanned after the end of "over" - in this case, four. 

It then continuea to асап through the measage, increaaing LL with 
each character and making LS equal I with the occurence of each space. 
Again after the word  "dog'a" we find that LL haa exceed 31, ао 
everything between character number LP (thirty) and LS (fifty-nine) ia 
printed (from the worda "the lazy" to "in the"). Again LP ia updated 
to the laat apace plua one Caixty) and 11 ia altered to the length of 
"dog'a" (five). After acanning a little more, the end of the message 
ia reached and program flow passes to line 4868. Here everything from 
the laat character printed to the end of the message ia placed upon 
the screen - that ia, the words "dogs kennel. " After all of that (по 
wonder printing stuff оп the acreen takea auch a long time!) we are 
RETURNed to whatever line we called the aubroutine from. 

The next linea in the program read the room deacription data and 
print it on the acreen (using another call to line4850): 


30 IFO«»R,L-4990«R*10: GOSUB 5300: GOSUB 4800 ELSEJs=cs 
55 GOSUB 4850 | 
68 Са-Та:0-Б:7а-""іВас" "Аша" 


Because the data reading aubroutine takea a fair amount of time, theae 
linea are aet up ao that once the,room deacription haa firat been 


t 
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~ - 
тез yo Cmm mms 


read, it іа atored in CS, and dosen’t have to be read again. If you 
keep your room deacriptiona short (one data line only), it would save 
memory, and probably be quicker, if the data was read every time. 
Other interesting points about these linea are. the use of the restore 
line number routine at 5300, mentioned in an earlier issue, and the 
uae of a comma inatead of the THEN command in line 50. This doesn't 
save any memory, but may enable you to squeeze a few extra charactera 
into a line. s 
The data reading subroutine at 4800 followa: 


4800 READAS: BS=BS+As = | 

4810 IF RIGHTS(BS,1)<>" 9" AND RIGHTS(BS,1)<>"1" THEN 4800 
4815 AS-'""iDS-RIGHTS(BaS,4) Е | 

4820 JS=Z2a( VALC LEFTS(BS,1))) + ZS3(VAL (MIDS(BS,2,1))+4) 
4830: Ja-]8*MIDSCBS,3, LEN(BS)-5): RETURN | 


In linea 4800 and 4810, a line of data in the deacription is read, 
added on to BS, then the laat character of it ia checked. If thia ia a 
zero ог а one, it ia part of the movement code, and ia therefore the 
end of the description. If not, the program returns to line 4800 to 
read the next piece of data. | 

Line 4815 takea the movement code from the end of BS, and places 
thia іп DS for future uae. | 

Line 4820  "decodea" the firat two characters of the description 
from "19" to "in the " or whatever the code may be. The 
VAL(LEFTS(BS,1)) command takea the firat number^a numerical value, ао 
if the first number ia three, the atring in Z3(3) ia added to Js - in 
this case "by ", The second part of this command adds the string in 
2Z8(aecond number +4), ао if thia second number waa 2 the contenta of 
Я8(6) - ("ап ") will be added to JS aa well. | | 

Line 4830 adda the reat of the room description in BS to Js 
Cexcept for the movement code) then returna to the main routine. 

If your deacriptiona are all no longer than one line, you can omit 
line 4812 and alter line 4800 to READ BS. If you wish you can make 
line 56 unconditional (remove everything up to and including the comma 
and everything after and including the ELSE atatement.), delete line 
53, and alter line 69 to GOSUB 4850: J8z2""IBS-"" „This may save some 
atring memory. 22 | | 

Linea 74 to 142 check to aee if there are any viaible gettable 
objecta in the roon. | | 


76 FORI-1TOG:IFC(IO)«»R OR F(CID«»0 THENSO 

8@ L-4695*I*s5:GOSUBS300: READOS:J82JS8*238(ASC(COS8) - 44) 
85 JS8-JS*RIGHTSCOS,LEN(COS) -1) me te 

ЗӘ NEXT 

100 IFJa<>"", JS=LEFTS(Js, LEN(JS)-2) 

140 IFJa<>"",Js=" THERE IS "+Ja+" HERE AND " 


The loop between linea 70 and 90 goea through all the gettable objecta 
and checka to aee if each ia both in the room and viaible. If thia ia 
not the caae the program flow goea to line 90 which NEXTa the loop so 
that the next object is checked. If an object in the room is visible, 
the line number in which ita deacription  occura, ia calculated, 
reatored to, and thia data ia read. The last atatement in line 890 
decodea the number at the start of the description, then in line 85 
the rest of the description is added on With a comma and a space. 
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At the end of the loop the laat comma and apace are removed from Ја 
and it ia converted into a message auch aa "THERE IS A JOYSTICK, A 
HAMBURGER HERE AND ". If there ia no visible object in the room, this 
message of course is not created. 

| Linea 101 to 139 are left blank in case you have any special 
object which the player can see but ia not gettable. Objects such aa 
these are normally just included іп the room description, but for 
objecta which may change aomewhere in the courae of the adventure game 
you would place them here. For example you may have a seedling that 
growa into a vicious killer cauliflower, or an animated skeleton (іп 
moat adventures these tend to be rather unfriendlyt) which the player 
may decide to hack into stock cubea. 


eg 

IFR=63AND F(98)=@ THEN 78-79% "A SEEDLING, " 

IFR=63AND F(98)=1 THEN 78-78% "A VICIOUS KILLER CAULIFLOWER; " " 
IFR-87AND F(99)=@ THEN Ја=Ја+ "AN UNFRIENDLY ANIMATED SKELETON; 
IFR=87AND F(99)=1 THEN Jš=Jġ+ "A PILE OF SKELETON STOCK CUBES) 


The next aection of the program deal with displaying the posaible 
exita. | 


150 J&8-JS8«"THERE ARE EXITS TO ":M-0:K-0 | 

156 FORI-1TO4:1FMIDS(DS,I,1) ="@",М=М+1:МЕХТ ELSE NEXT 
160 FORI-1TO4:IFMIDS(DS,I,1) -"1"THEN180 

162 Ja8-J84Z8(9«I) :K5K*1 

165 IF K«»M AND K«»M-1 THEN J&=Ja+", " 

170 IF K-M-1,J8-2J8«" AND " 

175 IF K=M, J@=jar". " 

180 NEXT 

190 GOSUB4850 


Line 156 checks to see how many exita there are from the room so the 
program can work out where to put commas, "and" and the full atop іп 
the sentence. There ia then a aeparate loop which adda the relevant 
exita to JS. It checka Ds «the movement code) in the order north, 
south, weat, east. If there іа а one there is no exit in that 
direction ao the reat of the inatructiona in the loop are ignored. If 
there ia an exit in that direction, the appropriate direction can be 
added from the Z8 array (elementa 19 to 13 are "north","aouth", "weat' 


and "eaat"  reapectively). If thia ia not the second laat or laat 
direction in which there ia an exit, a comma ia added. After the 
aecond laat direction the word " and " ia added, and after the last, а 


full atop, ao the meaaage may read "there are exita to the north, the 
aouth and the east." or "there are exita to the north and the west." 
or "there are exita to the aouth.'' 

Finally another call is made to the display aubroutine at 4850 
which diaplaya all the information about the visible objecta апа 
exita. 

If you wiah, and if you have room, you may like to add another row 
of equala aigna before the "WHAT NEXT?" meaaage 


ADVENTURE GAME WRITING - THE GOMMAND PARSER 


Опсе again thia aection ia roughly the aame for all adventures ao 
you пау сору а command parser from any adventure liating you have 
handy. For  thoae of you who haven’t come acroaa the term before, the 
command  paraer ia the section of the program which accepta the 
player'a input and worka out what it all meana. Accepting the input is 
the eaay part... | 


195 POKE31060,49:POKE31063, 20: FORT=1T03:X=USR(@) :NEXT 
197 FORI=1tol@@:NEXT:POKE 31063,40:FORI-1TO3:X-USR(O): NEXT 
200 PRINT: RS="PARDON?": INPUT "WHAT NEXT":A&S 


Lines 195 and 197 are a general prompt sound to let the player know 
that the computer ia finally ready to accept some input Cand perhaps 
wake the player upt). The meaaage "PARDON?" ia put into Ка for cases 
where the input ia not filtered out by the error checking routine but 
doean't cause a reply from the verb subroutines. Thia can happen when 
the player entera two legitimate words which don’t make any sense when 
put together (eg. EXTINGUISH ROCK). The rest of line 200 ia fairly 
aelf-explanatory. 

The next  aection of the program aplita the input up into a verb 
and a noun. 


205 IFASBSZ'"QUIT'THENCLS:END 


210 VS-z""iTSz"'":VBz-o:B-ó 
220 FORI-1TOLEN(CAz) 
238 IPMIDSCAS,I,1)-" "AND V&-"'"THENVS-LEFT2S(AS,I-1) 


249 IFMIDS(AS,I+1,1)<¢>" "AND Vae>"", T&=MIDS(AS,I+1, LEN(AS)-1) 
245 IFMID&(AS,I*1,1)«»" "AND Ve«»""THENI-LEN(A&) 
250 МЕХТ:ІРТа-""ТНЕМУа-АЗ | 


If the player typea QUIT the acreen ia cleared and the program enda. 
If not, the atringa and variablea in line 210 are cleared becauae they 
contain information from the player'a laat input which is no longer 
needed. The loop looka through the input for a apace, and when one ia 
found, everything before the apace ia placed into Уа and everything 
from the next non-space character onwards is placed in TS. Once thia 
has been done, there ia no need to continue the loop so I is set equal 
to the length of the input, thua ending the loop at the NEXT 
statement. If nothing із іп TS (the noun string) after the loop, then 
it ia asaumed the player haa entered a one word input (auch aa DIG) ao 
the entire contenta of the input ia placed in the verb atring,Vs. 


255 IFVS="GO"THENVS=LEFTS(TS,1) 

257 IFVS-'"NORTH'"ORVSZ"SOUTH" ORVS-"EAST"ORVS-"WEST",VS- LEFTS(VS,1) 
260 IFLENCVS)«3,V8zVà3-"721" | | 

278 IFVS="UNLIGHT"THENVS= "EXTINGUISH" 

280 IFAS-"DRIVE CAR"THENVS= "START" 


The firat two linea in thia part deal with all the different waya the 
playera can enter where they want to go. For example, they could enter 
GO SOUTH, SOUTH, or juat 3S. Theae linea convert all the direction 
commanda to aingle letter format. | 

Because aome commanda are leaa than three lettera long and they 
need to be compared with the three letter atringa in X8, three 
question marks are added to the shorter verbs. (remember that XS= 
"N?7?S7?7W?77E77HEL......) 

The three letter format can elao create some confusion where the 
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first three letters of different verba are the aame. Line 270 deala 
with the occurrences of UNLIGHT so they aren’t mixed up with UNLOCK. 


300 US-LEFTSCTS,3) 

318 FORI-1TONV:IF MIDS((XS8,I1*3-2,3)-USTHENVB-I: I=NV | 

328 NEXT:FORI-1TONO:IF MIDS(YS,123-2,3)=LEFTS(TS,3) THENB-I:I-NO 
330 NEXT * 

340 IFTS-"DOORMAT"THENB- 27ELSE IFT#="BOOKSHELF"THENB= 22. 


Thia part converta the input into a verb number and a noun number. 
Firatly the firat three lettera of the player’a verb are compared in 
turn with the three letter parta in XS. If they are the same at апу 
atage, a valid verb haa been entered. The verb number ia aaaigned to 
VB and I ia then aet to equal the number of verba to end the loop and 
gave time. Exactly the aame procesa ia carried out on Ys for the 
nouna. If a valid noun haa been entered, ita number ia placed in.B. 
Line 340 deala with  occurrencea of nouns where the firat three 
lettera аке the aame. In thia casae "DOOR" and "DOORMAT" aa well aa 
"BOOK" and "BOOKSHELF". | 
These linea deal with return neasages for input that the eéupuber 
doesn’ t underatand. 


355 IFB-0,R&-"FOOLING AROUND WITH THE ^"«TS«"^ WON'T HELP" 
356 IFTS=""THENRS="I NEED TWO WORDS" 

| 858 IFVB=@THENRS="I DON’T UNDERSTAND '"«Vme"" 

360 IFVB-OANDB-OTHENRS-'THAT^S SILLY!" 

370 IFB2GORB-OTHEN4GO 

380 IFVB-7OR(CVB-24ANDB-3)THEN 499 

399 IFVB<>@ANDC(B)<>@THENRS="YOU DO NOT HAVE THE "TA: GOTO38 


If the player entera a noun the computer doean’ t understand. ita reply 
will be “Fooling around with the ‘(noun)’ won't help". If no noun ia 
entered at all, the reply ia "I need two worda." however in both casea 
the computer will atill go to the verb aubroutine because the noun may 
not matter, or may not be needed at all (eg. Dig). 

If the verb іа not underatood the meaaage іа "I don't understand 
'(Cverb)'" and if neither noun or verb ia understood the reply ia 
aimply "That'a aillyt" (You can change the error mesaagea if you wiah, 
but make aure the player knowa what it ia the computer doean't 
underatand. ) 

Linea 3706 to 390 deal with playera trying to do thinga to aattable 
objecta which they haven't got. Obvioualy thia aection doean't apply 
to fixed objecta ао line 370 forcea this section to be akipped if the 
noun ida not gettable. Alao there are some verbs where the player 
 doean't have to have objecta to do thinga to them (GET is an obvious 
example, and there may be othera auch aa a rope that muat be tied to 


the tree before climbing it). line 380 deala with this situation. If © 


the verb ia a valid one, and the player ia not carrying the object 
referred to, the message ia "You do not have the (object)" and the 
input ia totally rejected. 

Finally line 400 (H-R*100*B) ia designed to save memory by holding 
the information about the player’a location and object referred to. 
This meana that inatead of having to Rype: 

_IFR=68ANDB= ЗЭТНЕМ..... 

You сап aimply type 

ІҒН-688ӘТНЕМ..... | | | | 
(The laat two digita of H are the contenta of B and any preceding 
digita the contenta of R.) | 
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GAMES COLUMN 


By Paul Frantz 


Welcome “back to another action-packed edition of the VZDU GAMES 
COLUMN! Well actually the last couple of months have been fairly slow 
VZ gamewise but I've still got a bit to say anyway. Firstly I have a 
suggestion from my brother. "Why don't you review action games 
instead of adventure games all the time" he said. The answer of 
course lies in my preference and ongoing search for good VZ games. 
Still, У2 action games represent а large chunk of the VZ games 
community and so that's why I'm calling on all those action game 
freaks to send in their own reviews! That's right here it is, a 
once-in-a-lifetime opportunity offer to be a substantial part of this 
very column! If you are interested please contact me at the address 
below for more info on this rewarding opportunity! 

Secondly, there is my VZ PUBLIC DOMAIN TAPE. It would be right to 
say that my first tape had a bit of a poor start in the world of the 
eternal VZ and I would like to make an improvement on it (it has taken 
me ages to get some people's tapes back as well). What I propose is 
this. A NEW, second tape to hit the Public Domain range. Sounds a 
bit familiar I hear some of you think, well yes and no. The idea is 
the same but this time I am offering to all those who contribute to 
this fine piece of the VZ's future a FREE copy of the completed 
product i.e. a 90 minute tape jam-packed with VZ programs of all 
shapes and sizes. It just sounds all so easy doesn't it. Well of 
course it does rely on you so please make the effort today and send in 
all those useful little programs and games you have created. Details 
of the new tapes distribution shall follow next time. Anyway now 
that's out of my hair we are on to a review with a difference. That's 
right this time I am not reviewing a true adventure game. Fact is 
I've about exhausted my collection. This time we have a sneak at a 
kind of simple strategy game by the name of 


ESCAPE RIVER 


Escape River a.k.a Raft-Away Piver is by Larry Taylor of. LASERLINK 
fame. This original idea (although I have seen something similar on 
the Apple II) for a game allows from two to six players to work as a 


team to save an ill-fated party from rising flood waters. 


This situation is this. Your group (in which each member has a 
different skill e.g. woodchopping) is stranded on the west bank of a 
fast flowing river. By co-operating and using your appropriate 


Uw.kills, the aim is to work to building a raft to save you from the 


forthcoming floods. An interesting thing to point out as well is this 


. games. use of split-screen mode, a graphics mode enabled with a little. |. 


assembly programming. This effectively allows the programmer four 
lines of text at the top of a mode (1) screen. Each action in the 
game has a pre-assigned key thus saving you the trouble of typing in 
repetitive азе over and over. 


Definately a great game, with a Hood dose of educational value as 
well. It is worth seeing even if only to see the good use of the 
split screen mode. Very well written. This shows just what the poor 


^ old VZ graphics chip is capable. The VZ. Still fuli of surprises! 
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ILL SEC e. М 


— 


RATING: 
*VOCABULARY: М/А (only suitable criteria for an adventure game) 


*PUZZLE DIFFICULTY: 5 (although this can depend on the difficulty 
chosen. ) 

* ATMOSPHERE: 8 

*LASTABILITY: 7 

ОЧЕВА Шаган аә 6 (and two thirds) 


AVAILABILITY: Should still be available for a small sum from Bob 
Kitch. Address on backpage of VZDU#29. 


HOT, HANDY & HELPFUL HINTS 


* Yes, some hints! thanks to action game champ Peter Watson for the 
following: (HIGH SCORE PLAYERS take careful note!) 
CRASH: Make sure you keep changing lanes constantly. 
KAMIKAZE:. Keep moving from the left side of the screen to the 
right side, according to the side the kamikazes are being released 
from. | | 


QUESTIONS & QUERIES 


2 What, по questions? Well yes there are still a couple from last 
month. I will attempt to delve into them deeply myself. Remember to 
send your questions as we should have a team of specialised game 
players ready to help you! 


And finally 


The HIGH SCORES 


GAME SCORE LEVEL HOLDER 
DAWN PATROL 52500 David Wood 
CRASH | | 581 | Peter Watson 
DIG OUT 52500 Kenley McLean 
HAMBURGER SAM 39500 . Stephen Frantz 
LADDER CHALLENGE . 22530 . | | .Peter Watson 
KAMIKAZE 36530 Peter Watson 
TEN PIN DOWLS 206 | Bernice O'Mahoney 
VZ INVADERS 30160 . Peter Watson 
GALAXON 328,460 Mathew McLean 
PENGUIN , 1350 Jason Oakley 
LUNAR LANDER 4600 Ben Hobson 

-- SUPER SNAKE.  - 1918 -Novice Peter Watson 
.MAZE OF ARGON 73888 Peter Watson 
ASTEROIDS | 110000 Peter McLean 
CIRCUS 1210 Peter Watson 
PANIK 7700 = Peter Watson 
HOPPY 25550 Matthew McLean 
GHOST HUNTER 23400 >- Chris McLean 
STAR BLASTER 480 units left Matthew McLean 
KNIGHTS & DRAGONS 3700 Easy Peter Watson 
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Well well. Not too much happening here with the exception of 


Peter Watson (HIGH SCORE TABLE LEADER) who has gone to the trouble of 
beating three of his own records. In one case he has doubled his old 
score! (KAMIKAZE). The other point of interest із Ben Hobson who has 
stolen LUNAR LANDER away from Jason Oakley. Will Jason make a 


comeback. Find out next time. Right here. Oh yes, watch out for me 
next time. I'm feeling a bit trigger happy myself. You have been 
warned! 


Anyway that's about it once more. I hope to hear froma lot of 


you out there concerning a lot of the mini-columns above (especially 
the empty ones). Please consider the rewarding benefits of 
contributing to the next chapter in VZ public domain and write to me 
at my address below. Thank you for your support! 


And so as always, see you next edition! 


Please send all your hints, high scores, questions and answers, 


reviews and large cash donations in to: 


Paul Frantz 
25 Crocker St 
KIRWAN QLD 4817 


| 2007/300 (computer) Users” Group 
By Graeme Bywater. 


The great little (so called toy) has done it again. In January 1987 I was offered 
а computer program to do the "Australian Speedcar Championships". The program was 
originaly a spread sheet designed by our former foundation president Andre Schoen. His 
program found its way over to South Australia to a Mr Dodd and altered it to suit the 
needs of progressive point scoring in use of the up and coming championships At 
Claremont Speedway. We (as a club) jumped at it in doing the job. So on the 9th anc 
10th of January, 1987, the successful job was done. The previous system was by hand, 
this method long and a higher place getter was some times over looked іп puting the 
final placeings and pole positions for the final. This little Vz computer was used for 
the FIRST time as a method. of point scoreing in Australia оп any speedway for such an 
event no other computer (to our knowledge) has been used for this purpose, е 

So comes 91, and according Speedway’s calendar, the "Australian  Speedcar 
Championships are on again on the ist and 2nd of February, and so the little VZ comes 
. up trumps again. тама . 4 | 

There were 44 entries from all over Australia, even Northern Territory. of them 10 
did not start. |.  — 
The eventual winners are :- (1)N.T.1 Ekins. (2)W.A.4 Jones. (5) Ю.А. 74 Watson Jnr. 
(4) №.Т.51 Blake. (5) М.А. 54 Figiomeni. (6)W.4.75 Watson Snr. (7)W.A.9 Cover. (B)S.5.2Z 
Herreen. (9) К.А. 21 staton. (10)W.A.29 Glazebrook. ZEE 
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LET’S INVESTIGATE SOUND ON THE VZ. 
FART ІУ 


by Bob кітет- 


For the next session on sound generation on the М7, I will detail some 

articles on peripheral devices that can be connected to the ү7. These сап 
greatly expand the appeal of the machine and enhance your interest in the VZ. 
(not to mention the enthusiasm that others will get for the computer. ) 


There аге Two types ОҒ "noise making" peripherals. These are VOICE and SOUND 
synthesis I.C. chips. These are alternate and novel forms of output, to that 
obtained from the screen or printer, when one has tired of these entirely visual 
forms of output. Music synthesis exceeds the capabilities of the VZ's inbuilt 
piezo-speaker . шахматы acd seit | | 


A numer of circuits and projects have appeared in the magazines over the past | 


few years. This article briefly identifies these for those who may wish to build 
а board or alternatively register interest with me so that we сап make available 
these peripherals Plus some off-the-shelf software. | 


Imagine the blockbusting use of voice and music synthesis in games or 
applications for the VZ. | 


А couple of introductory articles on speech synthesis appeared in BYTE сер. a4, 
p.337 and ITEC #26, p.812. These provide good background. 


Т n Date Name Chip Interface Software 
OIC | 
EA Oct. 82 Compu- . Votrax Centronics Yes 
Apr. 83 voice SC-01 | 
APC Dec. 84 DIY SC-01 Centronics Yes 
| synth. 
ETI Jan. 85 Chatter <С-01 Centronics Yes 
Apr. 86 рох | 
ЕТІ Mar. 86 Talking GI Parallel No 
| v7-200 5Р0256 
AEM Feb. 86 Project Gl Centronics Yes 
4505 SPO256 7 
PE Mar. 85 BBC GI Parallel Yes | 
Jun. 85 SPO2b56 
PE Jan. 86 Spectrum Yes 
SOUND 
APC Nov. 84 DIY TI Centronics Yes 
synth. | SN/6496 | 
ЕА Aug. 83 Comeu- ТІ Centronics Yes 


muse SN76489 | | | 
So if you are tired of reading output from your computer, why not try listening 


instead? 


bond 


